home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / fonts / altfntpc.lha / AltFontPatch / 2.0.rx next >
Text File  |  1993-06-18  |  470b  |  22 lines
  1. /* 2.0.rx */
  2.  
  3. if open(ssq,'AFP_temp:S/startup-sequence.AFP','Read') then do
  4.  ssc=readch(ssq,65535)
  5.  ssu=upper(ssc)
  6.  fip=index(ssu,'IPREFS')
  7.  if fip=0 then ssc=insert(ssc,'0A'x||'C:AltFontPatch >NIL:'||'0A'x)
  8.  else do
  9.   fip=lastpos('0A'x,ssc,fip)
  10.   ssc=insert('C:AltFontPatch >NIL:'||'0A'x,ssc,fip)
  11.  end
  12.  call close(ssq)
  13.  
  14.  if open(ssq,'AFP_temp:S/startup-sequence','Write') then do
  15.   call writech(ssq,ssc)
  16.   call close(ssq)
  17.  end
  18.  else return(5)
  19. end
  20. else return(5)
  21. return
  22.